home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / millionaire (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  56 lines
  1. 1 POKE53280,0:POKE53281,0:POKE646,3
  2. 2 PRINT"[147]         THE MILLIONAIRE GAME"
  3. 5 PRINT"   WOULD YOU LIKE INSTRUCTIONS?[160](Y/N)"
  4. 6 GOSUB 260
  5. 7 IF A$="N" THEN 100
  6. 8 IF A$<>"Y"THEN 6
  7. 10 PRINT"[147]THE OBJECT OF THIS GAME IS TO GUESS,
  8. 15 [153]"AS QUICKLY AS POSSIBLE, A NUMBER
  9. 20 PRINT"BETWEEN 1 AND 10,000 THAT IS            SELECTED BY THE COMPUTER.
  10. 30 [153]"YOU START THE GAME WITH ONE MILLION     DOLLARS.
  11. 35 PRINT"EACH TIME YOU MAKE A QUESS, YOU WILL    LOSE SOME MONEY.
  12. 40 [153]"HOWEVER, IT DOESN'T PAY TO BE TOO
  13. 45 PRINT"HASTY BECAUSE EACH QUESS COSTS          PROGRESSIVELY MORE.
  14. 50 [153]"                GOOD LUCK!              WAIT"
  15. 55 [141]250
  16. 100 X[178][181]([187](TI)[172]10000 [170] 1)
  17. 105 DV[178]2:TI$[178]"000000"
  18. 110 MN[178]1000000:GN[178]0
  19. 170 GN[178]GN[170]1:DV[178]DV[170]1
  20. 171 [141]300
  21. 172 [139] G% [178] X [167][153]"YOU GOT IT.WAIT":[141]320:[137]183
  22. 174 [153]"YOUR GUESS IS TOO ";
  23. 175 [139] G% [179] X [167] [153]"SMALLWAIT"
  24. 176 [139] G% [177] X [167] [153]"LARGEWAIT"
  25. 180 [129]TC[178]1[164]3000:[130]:[141] 200:[141]320
  26. 181 [139] MN[177]0 [167] [137]190
  27. 183 [153]"THE NUMBER WAS";X
  28. 185 [153]"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)"
  29. 186 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]186
  30. 187 [139] A$[178]"Y" [167] 100
  31. 188 [139] A$[179][177]"N"[167] 350
  32. 189 [137]350
  33. 190 [137]170
  34. 200 D3[178]X[173]DV: RM[178]D3[171][181](D3): RM[178]RM[170].01
  35. 210 RM[178][181](RM[172]DV):[153]
  36. 220 [153]"THE NUMBER DIVIDED BY";DV;"LEAVES A","REMAINDER OF";RM
  37. 225 [129]TC[178]1[164]3000:[130]:[142]
  38. 250 [153]"    PRESS SPACE BAR TO CONTINUE"
  39. 251 [161]A$:[139]A$[179][177][199](32)[167]251
  40. 252 [142]
  41. 260 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]260
  42. 261 [142]
  43. 300 [133]"LOADWHAT IS YOUR GUESS";G%
  44. 310 GT[178]TI:TI$[178]"000000"
  45. 315 [142]
  46. 320 MN[178]MN[171](GT[173]20)[172]2[174]GN:[143] MONEY = MONEY - GUESS TIME ...
  47. 321 [143] (IN SECS) * 4 ^ GUESS NUMBER(IE 1ST, 2ND, 3RD, ETC.)
  48. 322 [139] MN[179][178]0 [167][153]"YOU HAVE RUN OUT OF MONEY":[137]330
  49. 325 [153]"YOU HAVE";MN;"DOLLARS LEFT"
  50. 330 [129]TC[178]1[164]3000:[130]:[142]
  51. 350 [153]"LOADRETURNING TO THE DISK MENU
  52. 360 LOAD"MENU",8
  53. 370 RUN
  54. 380 END
  55. 400 REM WHC 91:03:25
  56.